home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Highspeed pascal.adf / Demos / PascalTriangle.pas < prev    next >
Pascal/Delphi Source File  |  1991-12-31  |  716b  |  37 lines
  1. PROGRAM PasTri; { Pascal's Triangle program }
  2.  
  3. Uses Crt;
  4. CONST
  5.   cols = 13;
  6.  
  7. VAR
  8.   row : ARRAY[0..cols] OF integer;
  9.   i,j : integer;
  10.   max : integer;
  11.  
  12. BEGIN
  13.   ClrScr;
  14.   REPEAT
  15.     REPEAT
  16.       gotoxy(1,Hi(WindMax)-1);
  17.       write('Size: (1-',cols:1,'; 0 = stop) : '); 
  18.       ClrEol;
  19.       read(max);
  20.       writeln
  21.     UNTIL (max>=0) AND (max<=cols);
  22.     IF max>0 THEN BEGIN
  23.       gotoxy(1,4);
  24.       FOR i:=0 TO cols DO row[i]:=0;
  25.       row[1]:=1;
  26.       FOR j:=1 TO cols DO BEGIN
  27.         IF j<=max THEN BEGIN
  28.           FOR i:=j DOWNTO 1 DO row[i]:=row[i]+row[i-1];
  29.           write(' ':3*(cols-j));
  30.           FOR i:=1 TO j DO write(row[i]:6)
  31.         END;
  32.         ClrEol; Writeln;
  33.       END
  34.     END
  35.   UNTIL max=0;
  36. END.
  37.